home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
FORTRAN
/
3017.ZIP
/
TMBIOS.FOR
< prev
next >
Wrap
Text File
|
1988-09-26
|
403b
|
20 lines
PROGRAM TMBIOS
C
C TEST PROGRAM FOR MBIOS
C OLYMPIC SOFTWARE -- 9/26/88
C
C JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
C
EXTERNAL MBIOS
INTEGER*2 IARRAY(15)
C
WRITE(*,20)
20 FORMAT(' IARRAY=? ',$)
READ(*,*)(IARRAY(I),I=1,15)
CALL MBIOS(IARRAY)
WRITE(*,12)(IARRAY(I),I=1,15)
12 FORMAT(/,15I4)
STOP
END